home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00066_Vol2 button.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  443 b   |  15 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     if (the mouseV > 68) and (the mouseV < 135) then
  4.       set the locV of sprite the clickOn to the mouseV - 3
  5.       set the height of sprite 37 to the mouseV - 70
  6.       set the volume of sound 2 to 256 - (the height of sprite 37 * 1.0 / 64 * 256) - 1
  7.       updateStage()
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   set the volume of sound 2 to 256 - (the height of sprite 37 * 1.0 / 64 * 256) - 1
  14. end
  15.